home *** CD-ROM | disk | FTP | other *** search
/ Virtual Vibrations / Virtual Vibrations.iso / mac / Virtual Vibrations / STAR.DXR / 00010.ls < prev    next >
Encoding:
Text File  |  1994-10-28  |  1.5 KB  |  76 lines
  1. on enterFrame
  2.   puppetPalette(0)
  3.   if the soundEnabled = 0 then
  4.     puppetSprite(48, 1)
  5.     set the castNum of sprite 48 to cast "SoundOff1"
  6.     updateStage()
  7.   end if
  8. end
  9.  
  10. on mouseDown
  11.   if (the clickOn >= 12) and (the clickOn <= 20) then
  12.     BUTTONDOWN()
  13.   else
  14.     if the clickOn = 48 then
  15.       puppetSound("click")
  16.     end if
  17.   end if
  18. end
  19.  
  20. on mouseUp
  21.   global exitFrame, pause, voice
  22.   if (the clickOn >= 12) and (the clickOn <= 20) then
  23.     puppetSprite(48, 0)
  24.     if soundBusy(2) then
  25.       sound stop 2
  26.     end if
  27.     if the clickOn = 12 then
  28.       puppetSprite(48, 0)
  29.       set voice to 1
  30.       play frame "movies"
  31.     else
  32.       if the clickOn = 13 then
  33.         puppetSprite(48, 0)
  34.         set voice to 1
  35.         play frame "photo"
  36.       else
  37.         if the clickOn = 14 then
  38.           puppetSprite(48, 0)
  39.           set voice to 1
  40.           play frame "interac"
  41.         else
  42.           if the clickOn = 15 then
  43.             puppetSprite(48, 0)
  44.             set voice to 1
  45.             play frame "bbs"
  46.           else
  47.             if the clickOn = 16 then
  48.               ORDERBUTTON()
  49.             else
  50.               if the clickOn = 18 then
  51.                 HIDEBUTTON()
  52.               else
  53.                 if the clickOn = 20 then
  54.                   quit()
  55.                 end if
  56.               end if
  57.             end if
  58.           end if
  59.         end if
  60.       end if
  61.     end if
  62.   end if
  63.   if the clickOn = 48 then
  64.     CHANGESOUND1()
  65.   end if
  66. end
  67.  
  68. on exitFrame
  69.   global fixpal
  70.   if soundBusy(2) then
  71.     go(the frame)
  72.   else
  73.     go(5)
  74.   end if
  75. end
  76.